home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / library / xfalbrry.lha / XFA_Library / Blitz / XFA_PLAY.ascii < prev    next >
Text File  |  1995-06-20  |  608b  |  48 lines
  1.  
  2. ;********************************************************************
  3. ;
  4. ; (c) Mik of ClassX 1995
  5. ;
  6. ;
  7. ; How to load and play an xfa animation
  8. ;
  9. ;********************************************************************
  10.  
  11.  
  12. XINCLUDE "LIB_XFA.BB"
  13.  
  14. WBStartup
  15. NoCli
  16. DEFTYPE.l
  17.  
  18.  
  19. ;allocate some frames
  20. If XFA_AllocFrames_(500)
  21.  
  22.   ;load an animation
  23.   If XFA_LoadAnim_("t:a.xfa",0,0,True)<>0
  24.     ;error handling
  25.   EndIf
  26.  
  27.   ;open play stuff
  28.   If XFA_OpenPlayStuff_(False)
  29.  
  30.     ;play the animation
  31.     XFA_Play_ True,False,True
  32.  
  33.     ;close the play stuff
  34.     XFA_ClosePlayStuff_
  35.  
  36.   EndIf
  37.  
  38.   XFA_FreeFrames_
  39.  
  40. EndIf
  41.  
  42. End
  43.  
  44.  
  45.  
  46.  
  47.  
  48.